unit uLoading;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeelPainters,
  cxContainer, cxEdit, dxGDIPlusClasses, cxImage, JvComponentBase,
  JvFormTransparent, cxLabel, cxLookAndFeels;

type
  TfmLoading = class(TForm)
    JvTransparentForm1: TJvTransparentForm;
    cxLabel1: TcxLabel;
    cxImage1: TcxImage;
    cxLabel4: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    procedure cxImage1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmLoading: TfmLoading;

implementation

{$R *.dfm}

procedure TfmLoading.cxImage1Click(Sender: TObject);
begin
  Close;
end;

procedure TfmLoading.FormShow(Sender: TObject);
begin
  cxLabel2.Caption := '';
  cxLabel3.Caption := '';
  cxLabel4.Caption := '';
  cxLabel5.Caption := '';
  cxLabel6.Caption := '';
end;

end.
